home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
misc
/
ultimatepatchs.lha
/
UPS
/
Sources
/
Palette.s
< prev
next >
Wrap
Text File
|
1995-09-30
|
4KB
|
181 lines
;TOSPJPKPJPKPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPAGAFAGAO
incdir "include:"
include "exec/types.i"
include "exec/ports.i"
include "libs/exec.i"
include "libs/reqtools.i"
include "libraries/reqtools.i"
include "intuition/intuitionbase.i"
incdir "ups:"
include "ups.i"
Start moveq #0,d0
rts
.end blk.b 32+Start-.end
dc.l pfsControlLong
dc.l 0 ; pointer to next patcher
dc.l 0 ; pointer to prev patcher
dc.l UPSMainVersion ; minimum version of UPS to start
dc.l UPSMainVersion ; version of UPS which was used
; while patcher was developed
dc.l PatcherName ; pointer to name of patcher
dc.w 39,0 ; version
dc.l CoderName ; pointer to name of programmer
dc.l VerString ; pointer to $VER: string
dc.l PatcherIDString ; listview entry
dc.l pfsDisableable+pfsPrefs ; flags
dc.l 0 ; status of flags
execbase
dc.l 0 ; exec base
intbase dc.l 0 ; intuition base
gadtbase
dc.l 0 ; gadtools base
dosbase dc.l 0 ; dos base
gfxbase dc.l 0 ; graphics base
cxbase dc.l 0 ; commodities base
laybase dc.l 0 ; layers base
upsbase dc.l 0 ; UPS lib base
dc.l 0 ; pointer to init routine
dc.l 0 ; pointer to exit routine
dc.l popup ; pointer to prefs routine
dc.l keys ; pointer to cx keys to call prefs rout
dc.l Resources ; pointer to structure of requested
; opened resources
dc.l Patch1 ; pointer to structure for patches
dc.l pls1 ; pointer to pls structure
dc.l 0 ; pointer to main UPS msg port
dc.l 0 ; pointer to rexx port
dc.l 0 ; pointer to pxs structure
dc.l 0,0,0
dc.l pfsControlLong
dc.l Start ; pointer to the beginning of struct
PatcherName
dc.b 'Small Palette Utility',0
even
CoderName
dc.b 'Goran Mitrovic',0
even
VerString
dc.b '$VER: Small Palette Utility V1.0',0
even
PatcherIDString
dc.b 'Small Palette Utility',0 ; 25
even
keys dc.b 'rcommand shift p',0
even
Resources
dc.l 0 ; pointer to next entry
dc.l 0 ; pointer to previous entry
dc.l rt_Library ; type of resource
dc.l 100 ; resource id
dc.l 0 ; flags
dc.l res1name ; pointer to name of resource
res1base
dc.l 0 ; base of opened resource
dc.l 0 ; version, if needed
blk.l 8 ; ...to put in data regs
dc.l 0 ; user open rout for user type
dc.l 0 ; user close rout for user type
dc.l 0 ; pointer to name for user type
dc.l 0,0
res1name
dc.b 'reqtools.library',0
cnop 0,4
Patch1
dc.l 0 ; pointer to next patch
dc.l 0 ; pointer to prev patch
dc.l 0 ; priority, less runs first
dc.l Start ; pointer to parent Patcher
dc.l Patch1ID ; listview entry
dc.l Patch1purpose ; pointer to purpose string
dc.l 100 ; id of resource to be patched
dc.l mpsDisableable ; flags
dc.l 0 ; status of flags
dc.l rtPaletteRequestA ; offset to change
dc.l Patch1rout ; pointer to new routine
dc.l 0 ; pointer to old routine
dc.l 0 ; pointer to pns structure
dc.l notify ; notified when enabled/disabled
dc.l 0 ; install rout for user type
dc.l 0 ; uninstall rout for user type
dc.l 0 ; pointer to init routine
dc.l 0 ; pointer to exit routine
dc.l pls1 ; pointer to pls structure
dc.l 0,0,0,0
Patch1ID
dc.b 'rtPaletteRequestA',0 ; 27
even
Patch1purpose
dc.b 'nothing',0 ; 16
cnop 0,4
pls1 dc.l 0 ; pointer to next link
dc.l 0 ; pointer to prev link
dc.l pls1ID ; listview string
dc.l popup ; pointer to prefs routine
dc.l plsDisableable+plsPrefs ; flags
dc.l 0 ; status
dc.l Patch1
dc.l 0
pls1ID dc.b 'rtPaletteRequestA',0 ; 27
cnop 0,4
Patch1rout
rts
popup tst.l disabled
bne.s .exit
movem.l d1-a6,-(a7)
lea reqname,a1
move.l #38,d0
move.l 4,a6
jsr OpenLibrary(a6)
tst.l d0
beq.s .exit2
move.l d0,a6
move.l intbase,a0
move.l ib_ActiveWindow(a0),window
lea title,a2
move.l #0,a3
lea tags,a0
jsr rtPaletteRequestA(a6)
move.l a6,a1
move.l 4,a6
jsr CloseLibrary(a6)
.exit2 movem.l (a7)+,d1-a6
.exit rts
notify move.l d0,disabled
rts
disabled
dc.l 0 ; 1 for disabled
title dc.b 'Palette',0
reqname dc.b 'reqtools.library',0
cnop 0,4
tags dc.l RT_Window
window dc.l 0
dc.l TAG_DONE,0